home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FSUL20.ZIP / UPLOAD.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-09-22  |  4KB  |  152 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   TSTRING004(9)
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     :LABEL001
  28.     Cls
  29.     Print "@X08PWA-FSUL v2.0"
  30.     PrintLn "DC╒════════════════════════════════════════════════╕"
  31.     PrintLn "C│░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ Uploading ░░░░│"
  32.     PrintLn "C╞════════════════════════════════════════════════╡"
  33.     PrintLn "C│ Filename: [C]C│"
  34.     PrintLn "C╘════════════════════════════════════════════════╛"
  35.     AnsiPos 28, 4
  36.     STRING001 = ""
  37.     InputStr "_", STRING001, 9, 12, Mask_File(), 8
  38.     If (((Len(STRING001) < 1) || (STRING001 == "A")) || (STRING001 == "G")) Goto LABEL008
  39.     FOpen 1, GetToken(), 0, 0
  40.     :LABEL002
  41.     If (Ferr(1)) Goto LABEL003
  42.     FGet 1, STRING002
  43.     If (Exist(STRING002 + STRING001) || Exist(STRING002 + STRING001 + ".ZIP")) Goto LABEL004
  44.     Goto LABEL002
  45.     :LABEL003
  46.     FClose 1
  47.     Goto LABEL005
  48.     :LABEL004
  49.     AnsiPos 1, 17
  50.     PrintLn "@X0CFile already exists here, try again!"
  51.     Wait
  52.     Goto LABEL001
  53.     :LABEL005
  54.     AnsiPos 1, 6
  55.     InputYN "@X09Does this file contain a FILE_ID.DIZ? @X0A[@X0FNo@X0A] : _", STRING003, 9
  56.     If ((STRING003 == "Y") || (STRING003 == "y")) Goto LABEL006
  57.     AnsiPos 1, 6
  58.     PrintLn "              ╒════════════════════════════════════════════════╕"
  59.     PrintLn "C│1>C│"
  60.     PrintLn "C│2>C│"
  61.     PrintLn "C│3>C│"
  62.     PrintLn "C│4>C│"
  63.     PrintLn "C│5>C│"
  64.     PrintLn "C│6>C│"
  65.     PrintLn "C│7>C│"
  66.     PrintLn "C│8>C│"
  67.     PrintLn "C│9>C│"
  68.     PrintLn "C╘════════════════════════════════════════════════╛"
  69.     For INTEGER001 = 1 To 9
  70.         AnsiPos 18, 6 + INTEGER001
  71.         InputStr "_", TSTRING004(INTEGER001), 8, 45, Mask_Ascii(), 512
  72.         If (Len(TSTRING004(1)) <= 6) TSTRING004(1) = TSTRING004(1) + "             ."
  73.         If (Len(TSTRING004(INTEGER001)) < 1) Goto LABEL007
  74.     Next
  75.     AnsiPos 1, 17
  76.     Goto LABEL007
  77.     :LABEL006
  78.     INTEGER001 = 2
  79.     TSTRING004(1) = "<*> Archive Contains FILE_ID.DIZ <*>"
  80.     :LABEL007
  81.     If (INTEGER001 == 1) KbdStuff STRING001 + Chr(13) + TSTRING004(1)
  82.     If (INTEGER001 == 2) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2)
  83.     If (INTEGER001 == 3) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3)
  84.     If (INTEGER001 == 4) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4)
  85.     If (INTEGER001 == 5) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5)
  86.     If (INTEGER001 == 6) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6)
  87.     If (INTEGER001 == 7) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7)
  88.     If (INTEGER001 == 8) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7) + Chr(13) + TSTRING004(8)
  89.     If (INTEGER001 == 9) KbdStuff STRING001 + Chr(13) + TSTRING004(1) + Chr(13) + TSTRING004(2) + Chr(13) + TSTRING004(3) + Chr(13) + TSTRING004(4) + Chr(13) + TSTRING004(5) + Chr(13) + TSTRING004(6) + Chr(13) + TSTRING004(7) + Chr(13) + TSTRING004(8) + Chr(13) + TSTRING004(9)
  90.     :LABEL008
  91.     AnsiPos 1, 17
  92.     KbdStuff Chr(13)
  93.     End
  94.  
  95. ;------------------------------------------------------------------------------
  96. ;
  97. ; Usage report (before postprocessing)
  98. ;
  99. ; ■ Statements used :
  100. ;
  101. ;    1       End
  102. ;    1       Cls
  103. ;    1       Wait
  104. ;    12      Goto 
  105. ;    6       Let 
  106. ;    1       Print 
  107. ;    17      PrintLn 
  108. ;    16      If 
  109. ;    1       FOpen 
  110. ;    1       FClose 
  111. ;    1       FGet 
  112. ;    2       InputStr 
  113. ;    1       InputYN 
  114. ;    10      KbdStuff 
  115. ;    7       AnsiPos 
  116. ;
  117. ;
  118. ; ■ Functions used :
  119. ;
  120. ;    96      +
  121. ;    13      ==
  122. ;    3       <
  123. ;    2       <=
  124. ;    2       >=
  125. ;    2       !
  126. ;    2       &&
  127. ;    5       ||
  128. ;    3       Len(
  129. ;    1       Ferr()
  130. ;    46      Chr()
  131. ;    1       Mask_File()
  132. ;    1       Mask_Ascii()
  133. ;    1       GetToken()
  134. ;    2       Exist()
  135. ;
  136. ;------------------------------------------------------------------------------
  137. ;
  138. ; Analysis flags : No flag
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Postprocessing report
  143. ;
  144. ;    1       For/Next
  145. ;    0       While/EndWhile
  146. ;    0       If/Then or If/Then/Else
  147. ;    0       Select Case
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;                 AEGiS Corp - Break the routines, code against the machines!
  151. ;------------------------------------------------------------------------------
  152.